﻿Imports Microsoft.VisualBasic

Public Class DBBudgetTransferDtlSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public ID As New TableField("ID", Data.SqlDbType.Int)
    Public BTID As New TableField("BTID", Data.SqlDbType.Int)
    Public FromProgramNo As New TableField("FromProgramNo", Data.SqlDbType.NVarChar)
    Public FromAccountNo As New TableField("FromAccountNo", Data.SqlDbType.NVarChar)
    Public ToProgramNo As New TableField("ToProgramNo", Data.SqlDbType.NVarChar)
    Public ToAccountNo As New TableField("ToAccountNo", Data.SqlDbType.NVarChar)
    Public Amount As New TableField("Amount", Data.SqlDbType.Float)

    Sub New()
        MyBase.StoredProcedureName = "BudgetTransferDtlSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal ID As String = "", _
                                 Optional ByVal BTID As String = "", _
                                 Optional ByVal FromProgramNo As String = "", _
                                 Optional ByVal FromAccountNo As String = "", _
                                 Optional ByVal ToProgramNo As String = "", _
                                 Optional ByVal ToAccountNo As String = "", _
                                 Optional ByVal Amount As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.BTID.SetValue(BTID, MyBase.FieldsArrayList)
        Me.FromProgramNo.SetValue(FromProgramNo, MyBase.FieldsArrayList)
        Me.FromAccountNo.SetValue(FromAccountNo, MyBase.FieldsArrayList)
        Me.ToProgramNo.SetValue(ToProgramNo, MyBase.FieldsArrayList)
        Me.ToAccountNo.SetValue(ToAccountNo, MyBase.FieldsArrayList)
        Me.Amount.SetValue(Amount, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
